home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / vis082s.arc / SLOW.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-17  |  238b  |  17 lines

  1. {$M 1024,0,0}
  2. {$N-,S-}
  3.  
  4. Program SlowDown;
  5. Uses Dos;
  6.  
  7. Procedure Slow(Flags,CS,IP,AX,BX,CX,DX,SI,DI,DS,ES,BP:Word);
  8. Interrupt;
  9. Var K:LongInt;
  10. Begin
  11.   For k:=1 To 100000 Do
  12. End;
  13.  
  14. Begin
  15.   SetIntVec( $1C,@Slow);
  16.   Keep(0);
  17. End.